home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / RemoveCD < prev    next >
Encoding:
Text File  |  1999-12-30  |  1.2 KB  |  47 lines
  1. ; AACD Removal Script
  2. ;
  3. ; Remove assigns and paths set by Welcome script
  4. ;
  5.  
  6. Set CDname `cd`
  7. set ReqTitle Amiga Active CD
  8.  
  9. ; Only run RemoveCD if Welcome has been run
  10. Assign >NIL: AACD: EXISTS
  11. If WARN
  12.     Skip EJECT
  13.     EndIf
  14.  
  15. Execute AACD:CDTools/S/ThisCD REMOVE
  16.  
  17. ; Remove assigns
  18. Assign >NIL: DEVS:      AACD:System/Devs REMOVE
  19. Assign >NIL: Fonts:     AACD:System/Fonts REMOVE
  20. Assign >NIL: Libs:      AACD:System/Libs REMOVE
  21. Assign >NIL: L:         AACD:System/L REMOVE
  22. Assign >NIL: S:         AACD:CDTools/S REMOVE
  23. Assign >NIL: REXX:      AACD:CDTools/S REMOVE
  24. Assign >NIL: LIBS:      AACD:System/Classes REMOVE
  25.  
  26. Assign >NIL: HELP:      AACD:CDTools/MUI/Docs REMOVE
  27. Assign >NIL: Libs:      AACD:CDTools/MUI/Libs REMOVE
  28. Assign >NIL: LOCALE:    AACD:CDTools/MUI/Locale REMOVE
  29. Assign >NIL: MUI:       AACD:CDTools/MUI REMOVE
  30.  
  31. Failat 21
  32. Assign >NIL: ENV:       AACD:System/Prefs/Env-Archive REMOVE
  33. Assign >NIL: ENVARC:    AACD:System/Prefs/Env-Archive REMOVE
  34. Failat 10
  35.  
  36. Assign >NIL: AACD: REMOVE
  37. Avail >NIL: FLUSH
  38.  
  39. Lab EJECT
  40. set EjectYN `RequestChoice "Amiga Active CD" "CD assigns have been removed*NShould I eject the CD?" "Yes|No"`
  41.  
  42. If $EjectYN EQ 1
  43.     wait 1
  44.     :CDTools/Eject/Eject `get CDname`
  45.     Endif
  46.  
  47.